﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class ServiciosXProveedor
    Inherits System.Web.UI.Page

  
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim reporte As New ReportDocument
        reporte.Load(Server.MapPath("repServiciosXProveedor.rpt"))
        'Instanciamos la clase
        Dim capanegocios As New ProveedorBL
        'Instanciamos la entidad 
        Dim objeto As New BE.ProveedorBE

        'Establecemos el origen de datos del reporte
        reporte.SetDataSource(capanegocios.ServiciosXProveedores.Tables("ServiciosXProveedores"))
        'Establecemos el reporte a mostrar en el visor
        'crvServiciosXProveedor.ReportSource = reporte
        'crvServiciosXProveedor.RefreshReport()
        'Liberamos recursos
        capanegocios = Nothing
        objeto = Nothing
    End Sub
End Class
